home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / misc / edu / GlossTask.lha / GlossTask1_72DEMO / Install_floppyonly_users < prev    next >
Encoding:
Text File  |  1998-04-22  |  1.6 KB  |  62 lines
  1. ; GlossTask install config-file for floppy users
  2. ; Håkan Parting 19 April 1998
  3.  
  4. ; ** set system variables **
  5. (set cpu (database "cpu"))
  6. (if (= cpu 68000) (set #cpu 0))
  7. (if (= cpu 68010) (set #cpu 1))
  8. (if (= cpu 68020) (set #cpu 2))
  9. (if (= cpu 68030) (set #cpu 3))
  10. (if (= cpu 68040) (set #cpu 4))
  11. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  12.  
  13. (working "Setting up installation. Please wait...")
  14.     (run "copy s to ram:s ALL")
  15.     (run "copy libs to ram:libs ALL")
  16. (complete 10)
  17.  
  18. (welcome)
  19. (set cpuVal (askchoice (choices "68000" "68010" "68020" "68030"
  20.                          "68040" "68060"
  21.                     )
  22.                 (prompt "Please, select the processor your Amiga have")
  23.                 (help   "Recommended is to leave it as default")
  24.                   (default #cpu)
  25.           )
  26. )
  27.  
  28. (working "Installing GlossTask.config-file")
  29. (copyfiles
  30.     (prompt "Installing config-file to S: directory")
  31.     (help @copyfiles-help)
  32.     (source (cat "ram:s/GlossTask.config" ))
  33.     (dest "S:")
  34.     (confirm)
  35. )
  36.  
  37. (complete 20)
  38. (if (> cpuVal 1) (
  39. (copylib (prompt #prompt_copy "\n\ngtlayout.library" )
  40.          (help @copylib-help)
  41.          (confirm "average")
  42.          (source "ram:libs/gtlayout.library.020")
  43.          (dest "LIBS:")
  44.         (newname "gtlayout.library")
  45.          (optional "oknodelete" "force")
  46. )
  47. ))
  48. (if (< cpuVal 2) (
  49. (copylib (prompt #prompt_copy "\n\ngtlayout.library" )
  50.          (help @copylib-help)
  51.          (confirm "average")
  52.          (source "ram:libs/gtlayout.library.68k")
  53.          (dest "LIBS:")
  54.         (newname "gtlayout.library")
  55.          (optional "oknodelete" "force")
  56. )))
  57. (complete 90)
  58. (working "Cleaning up..")
  59.     (run "delete ram:s all")
  60. (complete 100)
  61. (exit)
  62.